home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
wtj008.zip
/
OBJECTS.ZIP
/
USTRINGS.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1992-05-17
|
715b
|
28 lines
unit UStrings;
{-Unit to access TSTRINGS.DLL from a TPW program.}
interface
uses WinTypes;
type
PString = ^TString;
TString =
record
sString : PChar;
sGetString : function(sSelf : PString) : PChar;
sDone : procedure (sSelf : PString);
end;
function TStringInit(AString : PChar; var sSelf : TString) : Bool;
{-Initialize an instance of a TString.}
function TStringsGetString(sSelf : PString) : PChar;
procedure TStringsDone(sSelf : PString);
implementation
function TStringInit; external 'TSTRINGS' index 1;
function TStringsGetString; external 'TSTRINGS' index 2;
procedure TStringsDone; external 'TSTRINGS' index 3;
end.